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ABSTRACT 
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is an extended algebraic programming language which is similar in form 
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I. VARIABLES 

One may declare and use VARIABLES in LEAP. A variable is an 
entity which has a NAME, a DATA TYPE , and a VALUE . The NAME of a 
variable must consist only of alphanumeric characters and must start 
with a letter. The number of characters allowed in a name is unlimited. 
The DATA TYPE of a variable must be one of the following data types: 


REAL 

INTEGER 

BOOLEAN 

FIXED 

MATRIX 

TEXTARRAY 

REAL 

INTEGER 

BOOLEAN 

FIXED 


(i.e. fixed point fraction) 


ARRAY 


The VALUE of a variable is an algebraic quantity having the specified data 
type. For example, if X were an INTEGER variable, it might have 46 as its 
value. If Y were a BOOLEAN ARRAY, it would have an array of BOOLEAN 
numbers as its value. 


A. DECLARATIONS 

All variables must be declared. The declaration of a variable may 
occur either at the beginning of the LEAP program or at the beginning of 
the outermost COMPOUND STATEMENT within which the variable is used 
(see the discussion of COMPOUND STATEMENTS in Section V.E). A 
typical declaration has a data type specification , a list of names, and 
a semicolon. Examples: 

REAL X, Y, Z; 

INTEGER ARRAY A, B; 

A dynamic variable (a MATRIX, ARRAY or TEXTARRAY) may be declared with 
information about its dimensions; for a complete discussion of dynamic 
variables, see Section III. 
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II. CONSTANTS 

Integer constants are converted to either radix 8 or 10, depending 
on their form. Including sign, integer constants consist of 36 bits, float¬ 
ing point constants of 27 bits of mantissa and 9 bits of characteristic, and 
fractions of 36 bits. Omission of a preceding sign indicates a positive 
number. 

1. Decimal INTEGER constants are expressed by 1 to 11 digits 

written without a decimal point. 

Examples: 

3 

527 

-321 

923 


2. Octal INTEGER constants are expressed by 1 to 12 octal 

digits and are written with a terminal decimal point. 

Examples: 


5. 

7. 

770770770777. 


3. REAL (i.e. , floating point) constants are expressed in two 

ways, either by digits both before and after the decimal point (for example, 
3.5 or -0.3), or by the exponential designation with an optional decimal 


point: 


Examples: 

-2E-3 


equals -0.002 


. 2E7 equals 

2.E10 equals 

4. FIXED (i.e. , decimal fraction) 

decimal point followed by 1 to 10 digits: 


2/300X100.0 
20/300/300/300. 0 
constants are expressed by a 


Examples: 


.2 
. 37 
.002 
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5. There is no facility for octal fraction constants in LEAP. 

6. BOOLEAN constants are expressed as either "TRUE" or 
"FALSE" (Note: this is not valid for typed input to a READ statement). 

THUS: . 


35.0 

is 

REAL 

35 

is 

decimal INTEGER 

35. 

is 

octal INTEGER 

.35 

is 

FIXED 

TRUE 

is 

BOOLEAN 
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III. DYNAMIC VARIABLES 

A. ARRAYS 

An ARRAY is an ordered collection of ELEMENTS. A particular array 
element is indicated by specifying a unique subscript for the element, as 
illustrated below; 

^1, E2, E3, . . . , En 

In (1), the "Ei" are any INTEGER expressions, "n" is the number of dimen¬ 
sions of the array, and A is the name of the array. 

Each array element has a value. The data type of the elements of 
an array is specified when the array is declared (e.g. , REAL ARRAY A;). 

An array may be declared with size and dimension information; 
if this information is specified, then storage will be allocated at 
program execution time for the array elements. If this information is not 
specified, then no storage will be allocated until a statement is executed 
which explicitly assigns storage to the array for its elements (see the 
discussion of the assignment statement in section V*A.). The following 
is the form for an array declaration with size and dimension information; 

(2) (type) ARRAY (name) fa toa^, b tob^, . . . , to z 

In (2), (type) is either REAL, INTEGER, BOOLEAN, or FIXED. The (name) 
is the name of the array. The other parameters are explained below; 

a^ is the lower bound on the first dimension (if there is to be only 
one dimension, then a^ must equal 1) 
a^ is the upper bound on the first dimension 
b^ is the lower bound on the second dimension 
b^ is the upper bound on the second dimension, etc. 

There is no limit on the number of dimensions, and the bounds may be any 
INTEGER expressions. 

B. TEXTARRAYS 

A TEXTARRAY is a single dimensional array of characters, each repre¬ 
sented by its integer character code. Like the ARRAY, a TEXTARRAY may be 
declared with information about its size (the maximum number of characters 
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in the TEXTARRAY, including the 777. character); 

(3) TEXTARRAY (name) AE ; 

If no size information is given, then no storage will be allocated for the 
TEXTARRAY elements by the declaration. This storage will be allocated 
only by a subsequent assignment statement. In (3), (name) is the name 
of the TEXTARRAY, and AE is an INTEGER expression specifying the size 
of the TEXTARRAY. 

A TEXTARRAY element is indicated by specifying its subscript: 
Examples: 

IF TAj = 777. THEN . . . 

777. -TA ; 


C. MATRICES 

The MATRIX in LEAP is a highly specialized entity. It always has 
two dimensions, and its elements are always REAL numbers. Only one ex¬ 
ponent is kept for all the elements; the elements are scaled appropriately. 
Thus, information is lost if the values of elements differ by too many orders 
of magnitude. 

Matrices may be declared with no information about the number of 
rows and columns (e.g., MATRIX (name);), or with such information given: 

(4) MATRIX (name) aj BYb^; 

If no dimension information is specified, then no storage will be allocated 
for the matrix elements by the matrix declaration. As in the case of the 
array, this storage will be allocated only when an assignment statement 
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explicitly assigns storage to the matrix. 

If, as in (4), dimension information is specified, then appropriate 
storage is allocated for the matrix, and all elements are initialized to zero. 
In (4), a-^ and are INTEGER expressions. The declared matrix will have 
aj rows and columns. 

A matrix element is indicated by specifying the name of the matrix, 
the row index, and the column index. These indexes may be any INTEGER 
expressions between 1 and 256. Examples follow: 

M (1,2) row 1 , column 2 element of M 

M (K, J + 1) row K, column J + 1 element of M 

Matrices were introduced into LEAP to implement the parametric 
homogeneous matrix representation for points, lines, and conics which is 
described in Reference 9. LEAP has facilities for multiplying, inverting, 
and adjoining matrices . A complete presentation of the operations which 
apply to matrices is given in Section IV. C. 

LEAP also has a facility for generating the appropriate display 
instructions from a parametric homogeneous matrix description of a point, 
line, or conic (see Appendix I). 

Note: The word USELEAP must follow START in every LEAP program 
in which MATRICES are used. 

IV. EXPRESSIONS 

Variables, constants, elements of dynamic variables, and/or 
EXPRESSIONS may be combined by OPERATORS (e.g. + and -) to form 
EXPRESSIONS . An expression has a data-type, and a value. The value is 
computed by performing the indicated operation. For example, if X is a 
REAL variable having 3.6 as its value, and Y is a REAL variable having 1.0 
as its value, then 

X + 4.2 x Y 


is a REAL expression with 7.8 as its value. 
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Note that we would expect the multiplication to be done before the 
addition when the above expression is evaluated. In LEAP, the multiplication 
operator (x) is said to have "higher precedence" than the addition operator (+). 
We can classify the operators in LEAP by specifying their relative precedence, 
or "binding power." The remainder of this section is a tabulation of the 
operators in LEAP, organized in groups by operand type, and arranged within 
groups in order of decreasing precedence. Note that the expression scan is 
done from left to right. When operators of equal precedence are adjacent, 
e.g. , A + B + C, then the evaluation is performed from left to right, e.g. , 

(A + B) + C • When operators of different precedence are adjacent, the 
operator of higher precedence is treated first. When in doubt about precedence, 
parenthesize. 

In what follows, 

A, Al, A2, etc. will represent ARRAY's 


TA, TA1, TA2 , " " 

M, Ml, M2, " " 

AE, AE1, AE2, " " 

B, Bl, B2, " " 

A. ARITHMETIC OPERATORS 


TEXTARRAY's 
MATRIX EXPRESSION'S 
ARITHMETIC EXPRESSION'S 
BOOLEAN EXPRESSION'S 


The operands for arithmetic operators are of REAL, INTEGER, or 
FIXED types, and may be mixed indiscriminately in expressions. The result 
of mixed arithmetic is always REAL. 



OPERATOR MEANING FORM PRECEDENCE RESULT 

AE2 

superscript exponentiation AE1 8 AE (REAL) 

subscript ARRAY element A 7 B or AE 
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B. 

BOOLEAN OPERATORS 




OPERATOR 

MEANING 

FORM 

PRECEDENCE 

RESULT 


"NOT" 

~B 

3 

B 

A 

"AND" 

B1 A B2 

2 

B 

V 

"OR" 

B1 V B2 

1 

B 

© 

"exclusive OR" 

B1QB2 

1 

B 








MATRIX OPERATORS 
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D. 

MISCELLANEOUS MATRIX EXPRESSIONS 

FORM 

MEANING 


AE1# 

AE2 BY AE3 A MATRIX having AE2 rows and AE3 columns, 


AElA AE2 BY AE3 

where all elements have value AE1. 

A MATRIX having AE2 rows and AE3 columns, 
where all off-diagonal elements have value 

0.0, and all diagonal elements have value AE1. 


M (AE1 AE2) 

' AE3 BY AE4 Submatrix of M, starting at row AE1 and column 

AE2, for AE3 rows and AE4 columns. 
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G, CONDITIONAL EXPRESSION 

General form; (B => El, E2). 

This expression has either El or E2 as its value, depending on whether the 
BOOLEAN expression B has value TRUE or FALSE, respectively. El and E2 
are expressions which must have the same data type. This may be any 
allowed data type, including MATRIX and ARRAY, for example. 

V. STATEMENTS 

There are a number of imperatives (called STATEMENTS) in the. 
LEAP language. These are used to modify the values of the program 
variables and the flow of control through the program. All statements in 
LEAP must be terminated by one of the following, depending on context: 

t 

END 

ELSE 

A. ASSIGNMENT STATEMENT 

General Form: <expression> -* <variable or element of 

a dynamic variable>; 

This statement causes the value of the indicated variable to be reset to the 

value of the expression. 

Examples: REAL X, Y; 

MATRIX M; 

4.0hX; 

X x 2.0 - Y; 

0.0 #. . «-* M; 

3 by 3 

1.0 - M (3, 3); 

Data type conversions take place where required and allowed. The following 
table shows the allowed and resulting conversions. Blanks indicate that the 
conversion is not allowed. 
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VARIABLE 

TYPE 

EXPRESSION^V. 
TYPE N 

REAL 

FIXED 

INTEGER 

BOOL. 

REAL 

Real 

* 

Fixed 

* 

Integer 

(rounded) 

_ _ 

FIXED 

Real 

Fixed 

— 

— 

INTEGER 

Real 

— 

Integer 

— 

BOOL. 

— 

-- 

— 

Bool. 


The assignment statement may in fact be an expression if it is nested. This 
facilitates multiple or intermediate stores. For example, 

1 -* A - B; 

assigns the value 1 to both A and B. 

The subword form may be used as a variable in an assignment state¬ 
ment. Example: 

INTEGER X; 

3 - X (1 - 4); 

A special case of the assignment statement is the sub-matrix store 
command. Example: 

M x N - M (3,5); 

The matrix expression on the left will replace the sub-matrix of M whose 
upper left-hand element is in row 3, column 5. If the new sub-matrix will 
not fit into the indicated space, an error will be indicated at run-time. 


* 


No check is made for overflow: strange things may occur if a REAL number 
larger than or equal to 1.0 is converted to a FIXED. 
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B. TRANSFER-OF-CONTROL STATEMENTS 


Bl • 

Unconditional Go 

General Form: 

GO 

GOTO <statement label>; 

GO TO 

i 


The GO statement causes a transfer of control to the statement indicated by 
the "STATEMENT LABEL." A STATEMENT LABEL is a sequence of alphanumeric 
characters, starting with a letter, which is assigned to a statement by 
prefacing the statement with <statement label> w . 


Example: 

1.0 - X; 

LI X + 1.0 - X; 

B2 . 

GO TO Ll; 

Conditional GO Statement 

General Form: 

GO ) 

GOTO <B> => <label 1>, < label 2> 

GO TO ) 


This statement causes control to go to either statement label 1 or statement 
label 2, depending on whether the BOOLEAN expression is true or false. 
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B3. Switch Statement 

General Form: SWITCH VIA <INTEGER expression> TO <list of 

statement labels>; 

This statement causes a transfer of control to the statement label indicated 
by the value of the INTEGER expression. If this value is out of bounds, an 
error message will be given. 

Example: INTEGER I; 

SWITCH VIA I TO LI, L2 , L3; 

If I = 1, then control will go to Ll. 

If I = 2 , then control will go to L2 . 

If I = 3, then control will go to L3. 

C. IF STATEMENTS 

General Forms: (1) IF <B>THEN "^statement 1> ELSE < statement 2-^ 

If the BOOLEAN expression is true, <statement 1> is executed; if it is false, 
<statement 2> is executed. If there is a "dangling ELSE" clause, it is 
associated with the innermost IF clause. Example (la and lb are equivalent) 

la. IF <B1>THEN 

IF <B2> THEN 

< statement l-* 

ELSE 

<statement 2>; 

lb. IF <Bl> THEN 

BEGIN 

IF < B2> THEN 
<statement 1> 

^^Istatement 2> 

END; 

(2) IF <B> THEN <statement>; 

the < statement > is executed only if the BOOLEAN expression is true. 

The word IFNOT may be used instead of IF in the above forms; in 
this case, the BOOLEAN expression is complemented, and then examined. 
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D. ITERATION STATEMENTS 

General Forms: (1) FOR E x - P STEP E 2 j T hru j E 3 DO S; 

where Ei , E 2 , E 3 are arithmetic expressions, P is a non-dynamic variable 
or an array element, and S is a statement. 

This statement causes statement S to be executed once for each new 
value of P, the iteration variable. The statement is executed as if it were 
written as: 

El - P; 

LI”' IF || P > || E 3 THEN GOTO L2; (see note 1 below) 

S; 

P + E 2 - P; 

GOTO LI 


L2^ 

(2) FOR Ex - P STEP E 2 j ^LJTIL j B DO S; 
where Ei, E 2 , E 3 , P and S are as above, and B is any Boolean expression. 
Execution of this statement is analogous to the previous statement. Ex¬ 


ecutions of statement S continue as long as: 

(a) B is true (WHILE) 

(b) B is false (UNTIL) 

(3) FOR E x - P 


j WHILE 
j UNTIL 


B DO S; 


where E 3 , P, B, and S are as above. This statement behaves as indicated 

in ( 2 ) above, except that the iteration variable is not incremented 

' WHILE 
UNTIL 


(4) 


B DO S; 


where B and S are as above. This statement behaves as type (3), but has 
no iteration variable. 


CONTINUE STATEMENT 

This is a statement which causes a jump to either the incrementing or 
testing part of the FOR statement when execution of the remaining body is 
not desired. 

Example: FOR 1 - P STEP 1 TO 10 DO 

BEGIN IF P = 7 THEN CONTINUE: 

END; 

would cause execution for values of P = 1 through 6 , 8 and 9. 


Note 1: For TO, this operator is for THRU, the operator is >. If the 

iteration variable changes sign or ever equals zero, then another 
form of the FOR statement should be used. 
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E. COMPOUND STATEMENT 

It is often desirable to have a number of statements act as a single 
statement. A group of statements which is preceded by the word BEGIN 
and followed by the word END is called a COMFOUNDSTATEMENT. Note 
that compound statements may be nested. 

Compound statements may have "local" declarations of non-dynamic 
variables (of types REAL, INTEGER, BOOLEAN, and FIXED) immediately fol¬ 
lowing the word BEGIN. These variables are "local" in the sense that they 
may not be referenced from outside of the compound statement, but they may 
be referenced anywhere between the current BEGIN-END parentheses. The 
NAMEs of these variables may have been used in an outer compound state¬ 
ment or in the main program declarations. In this case, a NAME always 
refers to the variable declared in the current innermost compound state¬ 
ment. Note that one may GO into the middle of a compound statement. 

F. BLOCKS 


A compound statement in which dynamic variables are declared is 
called a BLOCK. Iteration statements, 


E statements (see 


appendix 2), and PROCEDURES (see section VII) are also BLOCKS. One 
may not GO into the middle of a BLOCK. 


VI. COMMENTS 

Comments may occur anywhere in a program where a statement or 
declaration may occur. Comments begin with the word COMMENT, and 
end with a semi-colon. Any string of characters (excluding semi-colon) 
may appear in between. 


VII. PROCEDURES 

A PROCEDURE is a subroutine which may or may not expect input 
parameters and may or may not return a result. A PROCEDURE must be 
declared before it is called. A PROCEDURE declaration must occur in a 
declaration portion of the LEAP program (see section IX) in one of the 
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following forms: 

(1) <REAL, INTEGER,BOOLEAN, or FIXED> PROCEDURE 
<name of procedure><plist>; <statement>; 

(2) PROCEDURE <name of procedure> <plist>; state¬ 

ment^ 

In the above, the <name>is any string of alphanumeric characters, 
starting with a letter. The <plist>is a list of "parameter declarations," 
separated by semi-colons, preceded by f, and followed by }. If the pro¬ 
cedure takes no parameters, the <plist> is absent. A "parameter declara¬ 
tion" consists of a data type specification, followed by a list of names which 
are separated by commas. 

For example, the declaration of a PROCEDURE to find the largest 
number in an array and store it in a specified cell would look like this: 

PROCEDURE BIG (INTEGER ARRAY A; INTEGER AM, AB"|; 

BEGIN INTEGER I; 

A AB; 

FOR 2 - I STEP 1 UNTIL I > AM DO 

IF A J >AB THEN A_ -AB; 

END; 

In this procedure, A, AM, and AB are procedure parameters. They represent 
the true arguments given the procedure when the procedure is "called." Two 
additional declarations are allowed in a procedure declaration to describe 
arguments. They are: 

d 1 2 n 

an (type) PROCEDURE P , ? 2> P ; (Again, type is optional) 

Examples: REAL PROCEDURE PYTHAG (REAL A, B] ; 

INTEGER PROCEDURE AVG (INTEGER I, J] 

PROCEDURE TEST (REAL PROCEDURE P; LABEL TAG!; 

A procedure "call" may occur as a statement or an expression depend¬ 
ing on whether a data type precedes the word PROCEDURE in the procedure 
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declaration. A procedure which is to be used as an expression is called 
a FUNCTION. The procedure call has the following general form: 

<procedure name> <ra list> 

The <a list> is a list of expressions, variables and elements of 
dynamic variables, separated by commas, preceded by {, and followed 
by ]. If the procedure takes no parameters, the <a list>is absent. 

The data type of each element in the <a list>is compared with 
the declared data type of the corresponding element in the <p list>, and 
an error is given if these do not match. For example, the following is a 
statement calling the procedure declared above: 

BIG {LIST, 100, LARGLST]; 

where LIST is the name of the array, 100 is the maximum size, and LARGLST 
will contain the largest element after the procedure is called. Note that 
there are two kinds of parameters in the above example: 

(1) parameters which are not changed by the action of the 
procedure, but whose values are used (VALUE parameters: 
LIST and 100, for example) 

(2) parameters whose values are changed by the action of 
the procedure (REFERENCE parameters; LARGLST, in 
this case). 

In LEAP all variables and dynamic variables may be passed to pro¬ 
cedures as REFERENCE parameters; also, elements of ARRAYS may be 
passed as REFERENCE parameters. However, TEXTARRAY elements, subword 
expressions, and MATRIX elements may NOT be passed as REFERENCE para¬ 
meters to procedures. 

VIII. RETURN STATEMENTS 

Normally, procedures and functions return to the calling statement 
at completion. However, an additional statement is provided to cause the 
procedure or function to return from anywhere within the procedure body. 
General Form: RETURN E; 

where E is required for functions and not allowed for other procedures. 
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E must be of the same data type as the function. This statement causes 
the procedure to return to the calling statement. If the procedure is a 
function, then the function value is E. 


Example: 



FUNCTION 


DECLARATION IF X >Y THEN RETURN X ELSE RETURN Y; 


FUNCTION 



LARGEST 


CALL I ; 

IX. PROGRAM LAYOUT 

Each LEAP program must start with the word START and finish 
with the word FINISH. The remainder of the program consists of two separate 
parts: a sequence of declarations, followed by a sequence of statements. 


Example: 


START 

REAL X, Y, Z; 

ARRAY A 11 to 40}; 


L- X + 3.0 Y; 


GOTO " L; 
FINISH 
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APPENDIX I 

PRIMITIVES FOR DISPLAY OUTPUT 


The display output facility in LEAP consists entirely of a collection of 
library procedures for constructing and modifying a "picture data structure". 

★ 

The picture on the screen at the console is generated by a display processor 

which accesses and interprets picture-drawing commands from this picture data 

structure. Typical commands tothe display processor are: 

** 

1) Place a dot at a specified position on the screen. 

2) Draw a line or conic segment from a specified screen position 
with a specified slope and length. 

3) Display specified text starting at a specified screen position. 

4) Call a "display subroutine", to be centered at a specified 
position relative to the current frame of reference. 

The "picture data structure" is simply a collection of display subroutines (called 
GROUPS), each having a unique 16-bit integer identifier (ID). Each display sub¬ 
routine (GROUP) consists of a collection of display ITEMS, each having a 16-bit 
integer identifier (ID) which is unique within that collection of items. There are 
two kinds of display items: 

1) A linear sequence of commands for drawing simple picture fragments 
and moving the beam, and 


Effectively a separate, special purpose computer (see reference 1). 
All positions are REAL expressions, ranging from -1.0 to +1.0. 
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2) a "use" of a display subroutine, which causes the indicated 

picture to be displayed as a subpicture of the group. 

The library of procedures for constructing and modifying display groups and items 
is tabulated below. Note the facilities for blanking items, drawing dotted 
lines, moving the unintensified beam, deleting groups and items, and creating 
uses. Groups are created automatically when required: e. g. when a use is 
made of a non-existent group; when an item is "put" into a non-existent group. 
When a group is deleted, all uses of it are automatically deleted. Display 
subroutines (groups) are not re-entrant: the "structure" of the picture resembles 
a tree. 

One creates the first kind of display item as follows: 

1) Declare the ID of the display item (a 16-bit integer) with a 
"SETITEM" call, 

2) Put points, lines, conics, and/or text into the display item via 
PUTPNT, PUTLINE, PUTMAT , and PUTTEXT calls, and 

3) Put the display item into a group via the PUTITEM call. (If the 
display item is put into group zero, it will be displayed.) 


The line will be drawn from the last position of the beam. 

The PUTMAT routine expects as input the parametric homogeneous matrix 
representation of a point, a line, or a conic. For further information about 
matrix representations of picture parts, see Reference 9. 
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As an example of a LEAP program which uses the display output 
facility, we have written down a program to display the scope diagonals 
START 

CLEARS COPE; 

SETITEM |l [; 

LOADPNT {-1.0, -1.0} ; 

PUTLINE {2.0, 2.0}; 

PUTITEM {0 }; 

SETITEM {2}; 

LOADPNT {1.0, -1.0 }; 

PUTLINE {-2.0, 2.0 }; 

PUTITEM { 0 } ; 


FINISH 


RESL’RVED PROCEDURES FOR DISPLAY OUTPUT 
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NOTES 

(1) The X and Y coordinates of the display run from -1.0 to +1.0 

(2) All ID's are INTEGER expressions 

(3) All positions are REAL expressions 

(4) The PUTITEM procedure does not re-initialize the display item 
buffer. This implies that one may build a display item and copy 
it into more than one group. Also, one may build a display item, 
copy it into a group, then add more to the display item, copy it into a 
group and so forth. 



29 


APPENDIX II 

THE ASSEMBLY CODE OPTION 

A. General Description 

A brief version of TX-2 assembly code has been implemented in LEAP 
allowing the assembly and execution of machine code in LEAP programs. The 
current implementation has no macro facility. 

B. Format 

To begin assembly coding, the user types 1A1 . This character 
causes the compiler to look for MARK 5*information. (U marks the 
end of the assembly information and the compiler returns to normal LEAP 

processing. The form [X] -Q[] ; is equivalent to a statement in 

LEAP. 

C . Restrictions and Notes 

1. Equalities are permissible, but all symexes used in forming 
the equality must be defined. 

2. The special symexes A, B, C, D, E are not automatically avail¬ 
able, although they may be defined as equalities by the user. 

3. Configs, hold bits, bit instructions, double indexing, and RC's 
are allowed. When defining a bit, however, it is necessary to separate 
the quarter-bit number by a comma (not a period). 

Example: SKN^ ^ YB 

Configs and subscripts must also be single symexes. 

4. When reference is made to a LEAP variable, the address of the 
variable is used. This means that in the normal case LDA Q will put the 
value of Q (a LEAP variable) in A. 

5. All MARK 5 equalities and instructions must end with semicolons, 
except for the last where CD is used. 

6. Forward references are allowed in restricted cases. These are: 


* MARK5 is the assembler for TX-2 . 
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a) No operation is performed on the symex. 

b) The symex is defined later by a in LEAP or a ’«*■’ or 
in MARK 5 . 


7. Tags are assigned by use of a '*•' or followed by a MARK 5 
instruction, constant, etc. 

3. There is no comma convention and constants follow the rules 

of LEAP. Octal integers must therefore be followed by a decimal point. 

21 

Example: JED 56- and ' LDA X 

9 . One may not refer to a label or equality which has been defined 
in [a] . . . |7j statement from anywhere outside that statement (e.g., 

equalities are "local" to the | A) . . . [JT statement in which they are 
defined. 
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APPENDIX III 

PRIMITIVES FOR INTERACTIVE INPUT 

The facility for non-typewritten interactive input to a LEAP program 
has two parts: 

(A) a set of reserved variables and functions which directly 
indicate the current state of the indicated input device 
(see Table IIIA), and 

(B) a simple sublanguage for communicating with the part of 
the time-sharing system which handles input interrupts. 

The interrupt sublanguage allows LEAP programs to "activate" the 

2 11 

various input devices at a TX-2 console, ' thereby asking the time-sharing 
executive to gather relevant information at the exact time that an input 
event occurs, and report this information to the user when he is next 
active. The user may ask for certain status information to be recorded 
along with the specified input event. For example, he may ask that the 
real-time clock reading be recorded whenever a knob changes state; 

(1) ACTIVATE 0KNOBS REPORTING flRTC *; 

The time-sharing executive reports input information to the user by 
maintaining a list of events, each with appropriate cause and status infor¬ 
mation. The user may ask for information about the next event; an entry will 
be removed from the list of events, and the cause and status information will 
be reported to him. If the list is empty, he will be notified. The 
user calls a reserved procedure to get information about the next event: 

GETNEXTINT; 

This procedure stores the appropriate cause code (an INTEGER) into the reserved 
variable aCAUSE, and device status information into appropriate reserved 
variables (e.g. if the event were a knob change, the state of the four knobs 
would be copied into the reserved variables qKNOB 1 , a KNOB 2, «KNOB 3, and 
“KNOB 4). If a request to report the real time clock reading accompanied the 
knob activation statement (as in (1)), the reading taken at the time of the 
event would be stored into the reserved variable crRTC. If the list of events 


*reserved words in the language are in CAPITALS. 
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is empty, the GETNEXTINT procedure would store zero into aCAUSE and 
then return. 

The input sublanguage consists of three special statement forms, 
and a number of reserved variables, procedures, and functions. 

(1) Statements in the input sublanguage: 

(a) ACTIVATE < input device name> ; 

(b) ACTIVATE < input device name> REPORTING < report list>; 

(c) DEACTIVATE < input device name> ; 

The "input device names" are listed in Table III B. Note that there are 

four interval timer device names, each of which may be activated with a 

unique interval time, in milliseconds. The minimum interval time is 64 

18 

milliseconds; the maximum is 2 milliseconds. 

The "report list" consists of one or more "report specifications," 
separated by commas (see Table III C). 

(2) Reserved variables in the input sublanguage are presented in 
Table III D. Reserved functions are presented in Table III E, and reserved 
procedures are shown in Table III F. 
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NAME 

DATA TYPE 

NOTES 

RTC 

INTEGER 

real time clock register 

KNOBS 

INTEGER 

knob register 

TOGS 

INTEGER 

reg. 377621 

U 

EIR 

INTEGER 

reg. 377621 0 

U 

COR 

INTEGER 

reg. 377622 0 

U 

KNOB1 

FIXED 

quarter 1 of knob reg. 

KNOB2 

FIXED 

quarter 2 of knob reg. 

KNOB3 

FIXED 

quarter 3 of knob reg. 

KNOB4 

FIXED 

quarter 4 of knob reg. 

TBLTX 

FIXED 

x-coordinate of tablet 

stylus 12 

TBLTY 

FIXED 

y-coordinate of tablet 



stylus 

TBLTSW1 

BOOLEAN 

switches which become 

TBLTSW2 

BOOLEAN 

TRUE as the tablet stylus 
moves toward the tablet 

TBLTSW3 

BOOLEAN 

surface. 

TOG1 

BOOLEAN 

BITS 1.1 thru 1.9 of 

TOG 2 

BOOLEAN 

reg. 377621g* if the 

• 

• 

bit is a 1, value is TRUE 

TOG9 

BOOLEAN 

0 => FALSE. 

META 

BOOLEAN 

META bit on knob register 

TABLE III A: 

RESERVED VARIABLES AND FUNCTIONS FOR INTERACTIVE 


INPUT. 
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DEVICE NAMES 

VALUE OF aCAUSE 

(in octal) 

AUTOMATIC REPORT 
(in addition to aCAUSE) 

3 TARGET 

1 

alTEMSEEN, aGRPSEEN 

3 TRACKSTART 

2 

aTBLTX, cyTBLTY 

3 TRAC KEN D 

3 

aTBLTX,aTBLTY 

3 SWCHANGE 

4 

aTBLTX,aTBLTY 

3 INTMI {<# millisecs>} 

5 


3 INTM 2 {<£ millisecs>} 

6 


3 INTM 3 {<# millisecs>l 

7 


3 INTM 4 {<# millisecs>l 

10 


3 INTMS 

11 


3 KNOBS 

12 

aKNOBl , a KNOB2, a KNOB3 
a KNOB4 

3 EIR 

13 

<yEIR 

3 KEYBOARD 

14 


3 INKING 

3 TRAC KING 

17 

o-NUMSTROKES 


TABLE III B: INPUT DEVICE NAMES AND THEIR OCTAL CODES, AND 
RESERVED VARIABLES AUTOMATICALLY REPORTED. 


REPORT SPECIFICATIONS 

NOTES 

3 KNOBS 

causes q’KNOBI thru <yKNOB4 to be set 


up. 

3 EIR 

causes <yEIR to be set up. 

3 RTC 

causes cyRTC to be set up. 

3 TBLTPOS 

causes c/TBLTX and aTBUTY to be set up 


TABLE III C: REPORT SPECIFICATIONS 
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RESERVED VARIABLES 


DATA TYPE 


aKNOBl 

aKNOB2 

Q-KNOB3 

Q-KNOB4 

aTBLTX 

aTBLTY 

aEIR 

o-RTC 

alTEMSEEN 

aCAUSE 

aGRPSEEN 

o-NUMSTROKES 


FIXED 


INTEGER 


TABLE III D: RESERVED VARIABLES FOR THE INTERACTIVE INPUT 
SUBLANGUAGE. 


FUNCTION AND PARAMETERS DATA TYPE 


NOTES 


NUMPOINTS [<stroke number>} INTEGER 


value is the number of ink 
points in the indicated stroke 


INKX {<stroke number>,<point 

number>} 


FIXED 


INKY {<stroke number> ,<point 

number>] - 


X and Y coordinates of the 
indicated ink point 


TABLE III E: RESERVED FUNCTIONS WHICH ARE RELATED TO THE 
INKING EVENT. 
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PROCEDURE NAME NOTES 


CLEARINK (no parameters) 

This causes the ink to be removed 

from the display, and the inking 

machinery to be re-armed. 

TURNOFFINTS (no parameters) 

Turn off all interrupt devices. 

CLEARINTS (no parameters) 

Clear out the list of input events. 

SETPENMODE {<display group ID>, 

<pen mode; 0,1,2, or 3>} 

See Note 5 below. 


GETNEXTINT (no parameters) 

The GETNEXTINT reserved procedure 

reports the next occurrence of an 

input event by setting up aCAUSE 

with the appropriate code and 

setting up the appropriate reserved 

variables. If there is no event 

recorded, aCAUSE will be set to 

zero. 


TABLE III F: RESERVED PROCEDURES FOR THE INTERACTIVE INPUT 
SUBLANGUAGE. 
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SAMPLE PROGRAM 

This program displays a smooth line for every line drawn in with 
the tablet stylus. 


START 

INTEGER ITEMNUM; 

ACTIVATE pINKING; 

0 -*ITEMNUM; 

CLEARINK; 

TAG 1 GETNEXTINT; 

IFqCAUSE = 0 THEN BEGIN SHADE; GOTO TAG1 END; 

IF aCAUSE / 17. THEN HELP; 

IF aNUMSTROKES / 1 THEN GOTO TAG2; 

SETITEM (ITEMNUM + 1 -*ITEMNUM }; 

LOADPNT ( tINKX (1,1}, flNKY (1,1 } }; 

PUTLINE (tINKX (l, NUMPOINTS (1 }}- INKX (1, 1], 
t INKY (1, NUMPOINTS (1}}- INKY (1,1}}; 
PUTITEM (0 }; 

TAG 2- CLEARINK; 

GOTO TAG1 

FINISH 

MISCELLANEOUS NOTES 

1) One can optionally specify an "inking wait duration" (i.e. time 
delay between lifting the pen from the tablet surface and 
receiving the inking interrupt) by specifying an integer value 
between 0 and 100 when activating inking: 

ACTIVATE SINKING (cINTEGER >} 
e.g. ACTIVATE pINKING (40} REPORTING PEIR; 

The increment is 5 ms; the default (normal) delay is 500 ms 
(1/2 second). 
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2 ) 

3) 

4) 

5) 


6 ) 



-1 <coordinate value <1 

"ACTIVATE ^TRACKING" simply renders the tracking dot 
visible; no input event is associated with this input device. 
CLEARINK must be executed (after activating inking) before 
inking will occur. 

The "pen mode" attribute of a display group specifies the 
relationship between the picture indicated by the group and 
information to be reported to the user when a target is "seen" 
by the pen. In the case where a target has subpictures (uses) 
as parts, the user must specify which item in which group is 
to be reported when a target is seen. He does this by specifying 
a "pen mode" for each display group; this indicates which group 
is the "working level": item ID's from this group are reported 
when a target is seen. There are four pen modes: 

0) Normal (default) mode: look above here for the 

working level. 

1) Picture parts here and below are invisible to the 
pen. 

2) (Unused). 

3) Working level: this group contains a group of 
targets; report the ID of this group and the ID of 
the item seen by the pen. 

a) 'o' 1 prefixes denote reserved variables which are stuffed 
by GETNEXTINT (e.g. aKNOBl). 

b) "0" prefixes denote device names (e.g. pKNOBS). 

c) No prefix (see TABLE III A) denotes a reserved variable 
or function whose value is a direct reading of the 
indicated device status when the reference is made 
(e.g. KNOB1). 
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APPENDIX IV 

TEXT AND NUMERICAL I/O 


CONTENTS: 

A. TEXT AND NUMERICAL INPUT 

TABLE A1 . RESERVED VARIABLES AND PROCEDURES 
TABLE A2 . DATA TYPE CODES 

TABLE A3. ALLOWED DATA TYPE CONVERSIONS FOR THE READ STATEMENT 
TABLE A4. READ ERROR CODES 

B. TEXT AND NUMERICAL OUTPUT 

1. TEXTARRAY OUTPUT STATEMENTS 


a. PRINT 

b. XEROX 

c. SHOWTEXT 

d. STORETEXT 

2. FORMAT STATEMENTS 
3 . FORMATTED OUTPUT STATEMENTS 

a. PRINT FORMAT 

b. XEROX FORMAT 

c. GATHER FORMAT 

4. THE OUTPUT LIST 
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IV. A. TEXT AND NUMERICAL INPUT 


The facility for typewritten input to a LEAP program is line-oriented 
and format-free. Normally (see SETSMACKER procedure), a line which is 


being typed in is not processed until a read-in key or carriage return key 


is pushed. Five special function keys are allowed: 


a) The DELETE key: deletes the previous character typed, 
unless there is no previous character on this line. 


b) the WORD EXAM key: delete the previous input word on this 
line, and any trailing spaces or tabs. 

c) the NO key: delete all previous characters on this line. 


d) the YES key: types a clean version of the input line so far. 


e) the READ-IN key: terminates the line, using it as a text file 

name, and pushes the contents of that text file onto the source 
of input characters. 


An input line consists of a sequence of input words, separated by 

spaces and/or tabs. The READ statement takes a list of variables as its 

argument, and attempts to read one input word into each variable, working 

from left to right, until the argument list is exhausted. If there are not 

enough input words to satisfy the argument list, the system will wait for 

sufficient input from completed input lines to be typed. As each input 

word is read into a variable, allowed data-type conversions are made (see 

Table A3). The data-type of the input word is determined from its format 

(see the discussion of constants in Section I. A), and the data-type of the 

variable is known from its declaration. Only variables of the following types 

may be arguments to a READ statement: 

REAL 
INTEGER 
BOOLEAN 
FIXED 
TEXTARRAY 

If a TEXTARRAY variable is the argument, an input word will be copied 
character by character into the indicated textarray, starting with the first 
element in the textarray. The value of each textarray element will be the 
integer character code for the indicated character. The next available 
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element in the textarray will have the value 777g to indicate end-of-word. 
The reserved INTEGER variable aCHARCNT will contain the number of 
characters read into the TEXTARRAY (not including the 777 g character). 
There are two general forms for the READ statement; 

a) READ <list of variables separated by commas>; 

(example: READ X, Y, I, IB A;) 

b) READ [<ID: an integer expression^ <list of variables>; 

(example; READ {3 7} X, Y, I, IB A;) 

The second of the above forms is used to indicate an identifying integer 
for the READ statement; in case of a read error, this integer is reported 
to the user along with the appropriate read error code (see Table A4.). 

The READ statement reads input words; there is another statement 
for reading input characters; 

a) READCHAR <list of INTEGER variables>; 

b) READCHAR {ID} <list of INTEGER variables>; 

This statement takes a list of INTEGER variables as its argument, and 
attempts to read one input character into each variable, going from left 
to right, until the argument list is exhausted. The indicated integer 
character code is stored into each variable. Spaces, tabs, and carriage 
returns ARE treated as input characters. If there are not enough input 
characters to satisfy the argument list, the system will wait for sufficient 
input from completed input lines to be typed. 

The second READCHAR statement form is similar to the second 
READ statement form; in case of a read error, the indicated ID is reported 
to the user along with the appropriate read error code (see Table A4.). 

The user may disable the built-in facilities for reporting a read 
error by executing a statement of the following form: 

SETRDERLBL <label> 

This causes the system to note the indicated label, and transfer control 
to it instead of printing an error message when the next read error occurs. 
Appropriate information is stored into reserved variables when a read 
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error occurs (see Table Al.). 

The user may cause his program to take its input from a text file 

rather than from the keyboard. At execution time, he may type the name 

of a text file, and then hit the READ-IN key. This causes the indicated 

text to be read in exactly as if it were typed in. When the text file is 

exhausted, a message will be printed out, and input will again be taken 

from the keyboard. Note that no change need be made to the user program. 

The user may re-read an input word or input character on the current 

★ 

input line by storing away and later resetting the system's input pointer. 
This pointer is kept in the reserved variable INPTR (see Table Al .). 

TABLE Al . RESERVED VARIABLES AND PROCEDURES FOR 
THE LEAP INPUT FACILITY 

(1) READNUM (INTEGER) 

The value of this variable is set to the ID of the offending 
statement (if specified) when a read error occurs . 

(2) RDERRCODE (INTEGER) 

The value of this variable is set to the read error code 
number (see Table A4.) when a read error occurs . 

(3) RDTATYPE (INTEGER) 

The value of this variable is set to the data type code 
of the input word if an illegal mode conversion is requested. 

(4) ENDOFLINE (BOOLEAN) 

This variable is set to FALSE at the beginning of each 
READ and READCHAR statement execution, and set to TRUE at 
the end of the execution if there is no more input on the current line. 

(5) INPTR (INTEGER) 

The value of this variable is a pointer to the next character 
on the current input line. 

(6) LASTINPTR (INTEGER) 

This is an integer reserved variable which is used to 
store the previous value of INPTR. Each time an input character 
or input word is to be read from the current input line, the value 


* 


Note that INPTR may not be reset to point into a previous input line . 
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of INPTR is assigned to LASTINPTR. If a new input line must be 
fetched, LASTINPTR is reset to the beginning of the new line. 

The system uses the value of INPTR as its pointer into the current 
input line; the user may save LASTINPTR or INPTR, and reset INPTR 
if desired. Note that INPTR may not be reset to point into a previous 
input line. 

(7) ISCHARINPUT (BOOLEAN PROCEDURE; no parameters) 

This returns the value TRUE if there are any characters left 
on the current input line, or if there is another completed input 
line available; the value FALSE is returned otherwise. 

(8) ISWORDINPUT (BOOLEAN PROCEDURE; no parameters) 

This returns the value TRUE if there are any input words left 
on the current input line, or if there are input words on any new, 
completed input line; the value FALSE is returned otherwise. 

(9) CLEARKBDLINE (PROCEDURE; no parameters) 

This removes all input from the current input line. 

(10) CLEARKBD (PROCEDURE; no parameters) 

This removes all completed input lines from the source of typed 

input. 

(11) READINTEXTFILE (PROCEDURE; Textarray parameter) 

This procedure pushes the textfile whose file name is given onto the 
stack of input character sources. If the parameter is not a correct textfile name, 
a READ ERROR #12 will result. 

Example: READINTEXTFILE { 'STANDARDTEXT' }; 

(12) SETSMACKER (PROCEDURE; boolean parameter) 

This procedure allows the user to access single characters 
typed on the keyboard before a carriage return is typed. Only the func¬ 
tions READCHAR and ISCHARINPUT are changed. After a call of the 
form SETSMACKER (FAI5E },READCHAR will return any character typed, 
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including the five function keys which, obviously, have no effect 
when accessed in such a manner. This is a special mode of operation, 
primarily for those who wish to use the keyboard as a set of control 
keys, rather than as a source of input text lines or words. Under 
this mode, READ acts as it always does, but INPTR, LINPTR, and 
ISWORDINPUT should not be used. 

The normal mode for the read package is restored by executing a 

SETSM ACKER{ TRUE } ; 

statement. 
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DATA TYPE 


CODE 


BOOLEAN 1 

INTEGER 2 

FIXED (FRACTION) 3 

REAL 4 

ALPHANUMERIC 5 


TABLE A2 . DATA TYPE CODES 



TABLE A3, ALLOWED DATA TYPE CONVERSIONS FOR 


FALSE 

TRUE 

other => 
ERROR 


THE READ STATEMENT 
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TABLE A4. REAP ERROR CODES 

CODE (in OCTAL) ERROR 

1 illegal mode conversion - example; 

you tried to read an INTEGER into 
a FIXED (fraction) variable. 

2 too many characters on this line 

3 used ISWORDINPUT while SMACKER 

was off 

4 you tried to do a READCHAR into a 

variable of different type then INTEGER 

12 tried to read-in a nonexistent text file 
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B. TEXT AND NUMERICAL OUTPUT 

1. Statements which output a text array: 

a) PRINT ctext array>; 

b) XEROX ctext array>; 

This statement causes the indicated text to be appended 
to the XEROX buffer. This buffer is maintained by the APEX 
executive. The following statement causes the XEROX buffer 
to be printed and then cleared: 

DUMP XEROX; 

c) SHOWTEXT [ctext array>, edisplay item ID>, edisplay group ID>, 

<X position>, cY position> ]; 

This is a reserved procedure which causes the indicated 
text to be added as a display item to the current display structure. 
The indicated position coordinates specify the position of the lower 
left comer of the first character. 

d) STORETEXT [ctext array> , cX position> , cY position>]; 

This is a reserved procedure which causes the indicated 
text to be displayed on the storaqe tube at the indicated position. 

2. FORMAT Statements 

The FORMAT statement is used to define a format descriptor, and 
associate it with a format description. A format description is used to 
specify the manner in which printed output is to be formatted. For example, 
a format description may indicate the number of digits to be printed after 
the decimal point of a real number, or the number of spaces between fields 
on an output line, or whether to print or suppress leading zeros. 

The FORMAT statement has the following general form: 

FORMAT cname of format descriptor (cformat description>); 
A FORMAT statement should appear as a declaration in a declaration portion 
of a LEAP program. 

In general, a format description consists of several data descriptors 


which are separated by vertical bar or slash. In addition to separating 
data descriptors, a slash causes a carriage return to be inserted on the 
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output line when the format description is applied to data to be output. 

Data descriptors in a format specification are matched to data 
arguments on a one-to-one basis. A full discussion of the format scan 
and list matching follows this section. 

In general, a data descriptor consists of a combination of desig¬ 
nators to specify the different portions of the data argument which is 
to be printed. Nesting of data descriptors is accomplished by parentheses 
preceded by an optional replicator (see the examples). The general form 
for a number specification is: 

[SIGN] [ WHOLE DESIGNATOR] [POINT] [FRACTIONAL 
DESIGNATOR] [CONVERSION] [MODIFIER]. 

Some of these fields are optional (see the examples). 

Numbers are converted to characters according to the conversion 
designator. These are: 

K for octal integer. 

I for decimal integer, 

F for fraction, 

E for mixed plus exponent of 10, 

R for mixed number, and 
A for alphanumeric 

The modifier is an integer constant specifying the power of ten 

(or eight for octal integers) which multiplies the number before it is 

placed for output. For example, T 2, would cause the integer to be mul- 
2 

tiplied by 100 (10 ) before processing. 

The sign of a number is specified by an optional portion of the 
specification. The sign may have either a fixed or floating position. 

A fixed sign is declared by having only a single + or - sign. A floating 
sign is declared by preceding the sign with a replicator larger than 1. 

This defines the sign field . The + causes the sign to be printed regardless 
of its value; the - causes only negative signs to be printed. 

A fixed sign is printed in the specified position at the left of the 
field. A floating sign is printed either at the left of the first significant 
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digit or at the right of the sign field . 

A decimal point is indicated by a comma. 

Both the whole and fractional parts of a number are used to 
describe the digit positions before and after the decimal point. The 
two digit designators are: 

D Print digits, but suppress leading or trailing zeros 
Z Print digits with leading or trailing zeros. 

These designators must be ordered if both are used to describe 
either whole or fractional parts. For the whole part of a number, (D) 
must precede (Z), and for the fractional part, (Z) must precede (D). 

There are two special output descriptors which may be used in a 
format description: 

(a) S (insert a space character) 

(b) T (insert a tab character) 

Examples of the FORMAT statement follow: 

(a) FORMAT FI (6 D I); 

Specifies a six digit decimal integer with leading zeros supressed. 
If a sign is not specified, + is assumed. 

(b) FORMAT F2 (- 7 D, 3 Z R); 

Specifies a real number having seven integer digits, and 
three fractional digits, with trailing zeros. A sign will 
be printed only if the number is negative. 

(c) FORMAT F3 (7 A); 

Specifies seven integer numbers, which will be treated as 
character codes, and printed as the indicated characters. 

(d) FORMAT F4 (3 (4 D 7 I -5 D, 6 D E) I 2 A); 

Specifies three pairs of numbers (the first of each pair 
an integer, the second a real) followed by two character codes. 

3 . Statements for Formatted Output 

There are three statements which generate formatted output: 

(a) PRINT FORMAT <format descriptor , coutput list>; 

This causes the indicated output to be printed on the Lincoln 
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writer (see the discussion of the output list below). 

(b) XEROX FORMAT <format descriptor, < output list>; 

This causes the indicated output characters to be put into 
the APEX Xerox buffer. The user program must force this 
buffer to be dumped by executing a 

DUMP XEROX; 
statement. 

(c) GATHER FORMAT <format descriptor , < output list>; 

This causes the indicated output characters to be appended 
to a special reserved textarray named OUTPUT. This 
textarray may be used as a parameter to the statements 
described in section B of this appendix, for example. The 
following special statement clears and reinitializes the 
OUTPUT reserved textarray: 

CLEAROUTPUT; 

There are several restrictions on the use of this textarray: 

(i) Storage for the elements of OUTPUT is auto¬ 
matically allocated, and is of a fixed length 
(500 characters). Do not attempt to re-declare or 
assign storage to OUTPUT. 

(ii) References may be made to the elements of OUTPUT, 
but do not attempt to move the 777. character if 
subsequent GATHER statements are to be executed 
before a CLEAROUTPUT is done. 


4 . The Output List 

The output argument list in a formatted output statement consists 
of arithmetic expressions and braced FOR statements. The comma is used to 
separate list elements . 

The braced (f }) FOR statement is an iterative output argument. 
This means that several elements of the argument list may be indicated by 
one FOR statement. The braced FOR statement has the same form as the 
regular FOR except that the DO clause is an arithmetic expression or another 
braced FOR statement. 

Examples: IFOR 1 - I STEP 1 THRU 10 DO Ajl 

would be equivalent to listing arguments A X . . . Aio* 

{FOR 1 - I STEP 1 UNTIL I> 10 DO 

(FOR 1 J STEP 1 UNTIL J> 10 DO A x # j, Bj ; j) } 

would be equivalent to listing elements A x j , Bj f j , A x 2 • ^> 2 , 1 ... 
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A 10,10' B io,io- 

fFOR 1 - I STEP 1 UNTIL I > J DO 
{FOR 1 -* KSTEP 1 UNTIL K> 3 DOA I(K )) 

would cause the variables Aj j , Aj 2 > ^1,3' ^2,1' etc • to b e u sed. 

The processing for formatted output is controlled by the output 
list. The format description is scanned and processed until a data de¬ 
scriptor is found. The next output argument is then fetched and processed; 
the format scan is continued until there are no more arguments . If the 
end of the format description is reached before the output list is 
exhausted, a carriage return is automatically inserted, and the scan 
restarts from the beginning. 

Examples: 

FORMAT F (5 D I) 

PRINT FORMAT F, A, B, C; 

causes A, B and C to be printed as 5-digit integers on separate lines. 
FORMAT F (5(5 D I); 

XEROX FORMAT F, X, Y; 

cause X and Y to be placed in Xerox buffer as 5-digit integers on one line. 
FORMAT F (2(5D, 3DE)) 

PRINT FORMAT F, fFOR 1 - I STEP 1 UNTIL I > 6 DO 
(FOR 1 - J STEP 1 UNTIL J > 2 DO Aj ^ }; 
causes array elements A^, 
real numbers, two to a line. 


A12' A 21' A 22' ’ ’ * ^2 t0 be printed as 


52 


APPENDIX V 

★ 

SUBPROGRAM LINKAGE FACILITY 


A. GOUPTO AND PEELBACK 

There is a facility for going up to a LEAP program from a LEAP pro¬ 
gram with input parameters and output parameters . The calling program 
executes a statement of the form; 

GOUPTO cTEXTARRAY expression> <argument list>; 
where the TEXTARRAY contains the name of the LEAP program to be called, 
and the argument list may be; 

a. null, if there are no parameters. 

b. {cINPUT parameter list>} , if there are only input parameters. 

c. {; cOUTPUT parameter list>|, if there are only output para¬ 
meters, and 

d. {cINPUT parameter list>; cOUTPUT parameter list>] , if there 
are both. 

Input parameters may be variables or expressions; output parameters must be 
variables . 

In the called program, if there are any input parameters, a declaration 
of the form 

INPUT tcdeclaration 1 is t> 1; 

must appear immediately after USELEAP, or after START if there is no 
USELEAP. The declaration list is similar to the declaration list for a 
PROCEDURE declaration, with the exceptions that LABEL and PROCEDURE 
parameters are not allowed, and a program may use the "FILE" declaration 
to pass the name of a file (or any name) in the public or private directory 
as a parameter in the GOUPTO statement. A "directory item" parameter is 
put into the connector, and the INPUT declaration on the upper map causes 
the text of the file name to be made available. The "FILE" declaration is 
used on both maps as follows: 

Examples: 

lower map: GOUPTO 'BLOP' [FILE 'SAM', . . . 

★ 

For an introduction to the APEX time-sharing executive and features of the 
time-shared virtual machine, see references 6 and 11. 
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upper map 

(in the program BLOP): 

START 

INPUT [FILE X, . . . 1; 

After the INPUT declaration on the upper map, x behaves like a 
declared TEXTARRAY variable, having the FILE NAME as its 

value. 

When the called program finishes, it may execute a PEELBACK 
statement: 

PEELBACK [output parameter list}; 
or simply execute the FINISH statement. 

B. OVERLAYS 

A LEAP program may be segmented into one main program and 

several subprograms (called OVERLAYS). At execution time , the main 

program is set up on the user's map, and remains set up until execution 

terminates. Overlays may be set up and dropped from the map under 

program control. Only one overlay at a time may be set up. The main 

program must be no larger than one book of code, and each overlay is 

7 

similarly restricted. At compile time, the user must use the BBIN com¬ 
mand to compile his program if overlays are declared within. 

The overlay facility was implemented for three reasons; 

(1) to help reduce the maximum core requirement both at 
compile-time and at run-time, 

(2) to provide an alternative to the GOUPTO facility, which 
may cause large inefficiencies if much information is passed 
between maps, and 

7 

(3) to get around the requirement (imposed by the VITAL 
system) that the total code compiled for any one program not 
exceed two books. 

Overlay declarations should appear immediately before FINISH 
in a LEAP program. Overlay declarations may not be nested. A LEAP 
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program in which overlays are declared should have the following general form: 
START 

< entire main program > 

DEFINE OVERLAP '<character string >'; 

< statement >; 

DEFINE OVERLAY '<character string >' ; 

< statement >; 

FINISH 

Example: 

START 

REAL X, Y; 

3.0 -X; 

DEFINE OVERLAY 'OVLl'; 

BEGIN 

END ; 

FINISH 

There are three statements in LEAP which are related to the over¬ 
lay feature: 

(1) CALL < textarray expression >; 

This statement causes the overlay with the indicated 
name to be set up, and control to be transferred to the first state¬ 
ment in the overlay. If a different overlay is already set up when 
this statement is executed, it will be dropped from the map. 

(2) OVERLAYRETURN; 

This statement causes control to return from an overlay 
to the statement following the CALL statement last executed. 

Note that one overlay may call another overlay; the calling 
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overlay is re-set up before control is returned. 

A GOTO statement which transfers control to a label in the main 
program may be executed from within an overlay (if the label is not within 
a block). Note that labels declared within an overlay may not be referenced 
from outside the overlay. 

(3) DROPOVERLAY; 

This statement causes the current overlay (if any) to be 
dropped from the current map. 
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APPENDIX VI 

ERROR DETECTION IN LEAP 


A. PRODUCTION ERRORS 

* 

These errors appear in the syntax phase of compiling. They are 
noted by the following comment: 

PERRXXXX EDITARG 
- (line in error) 

where, XXXX is the error number, EDITARG is a standard argument defining 
the line in error, and asterisks mark the current scan pointer at the occur¬ 
rence of the error. 

HINT: If the error occurs on the first word of the line, then the error may 
be caused by an incorrect end to the preceeding line. 

B. SEMANTIC ERRORS 

These errors are caused by the VITAL mechanisms and may in¬ 
dicate an error in the compiler. They are noted by the comment: 

SERR XXXX EDITARG 
- (line in error) 

where XXXX and EDITARG are as previously defined. If these errors occur, 
the user should consult the staff. 

C. SEMANTIC FAULTS 

These faults occur in the semantics of the language and are noted 
by the comment: 

FAULT XXXX EDITARG 
- (line in error) 

where XXXX and EDITARG are as defined for production errors. 

A complete tabulation of both compile-time and run-time errors 
and probable causes is presented below. 

*The LEAP compiler was written using the VITAL compiler-compiler, and is 
housed in the VITAL system. For information about VITAL, see reference 7. 
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A. OTHER RESERVED FUNCTIONS 


DATA TYPE 

FUNCTION NAME 

ARGUMENTS 

NOTES 

FIXED 

SIN 

FIXED; part of IT; 
i.e. , .5 = 90° 

SINE 

REAL 

SINR 

REAL number in radians 

SINE 

FIXED 

COS 

FIXED; same as SIN 

COSINE 

REAL 

COSR 

REAL number in radians 

COSINE 

FIXED 

ATAN 

[AX, AY} both FIXED 

ARC TANGENT 

REAL 

ATANR 

REAL number 

ARC TANGENT 

FIXED 

SORT 

FIXED 

SQUARE ROOT 

REAL 

SQRTR 

REAL 

SQUARE ROOT 

FIXED 

PYTHAG 

{X, Y] both FIXED 

computes SQRT 
{X^ + Y 2 ] 

REAL 

LOG 

REAL 

LOG io 

REAL 

LOGE 

REAL 

LOG e 

REAL 

EXP 

REAL 

e x 


B. LEAP BIN MODES 

The "bin" command to VITAL may be followed by a vertical bar, and 
an octal number. 

1. | 1 causes the LABEL table to be Xeroxed 

2. | 2 causes the SYMBOL table to be Xeroxed 

3. | 4 causes a formatted listing to be Xeroxed 

4. | 10 disables the compilation of code to check subscript 

bounds and SWITCH bounds. 

5. 12 0 disables the compilation of code to check the data 

type of LEAP items when y is used. 

These mode numbers may be combined: 

e.g. | 7 causes all three listings to be Xeroxed 

C. SYNONYM FEATURE 

One may define a synonym to a declared variable or to a procedure 
in LEAP; for example, if XYZ is a declared variable or a procedure, then 


W = XYZ: 
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is a DECLARATION which will assign the "semantics" of XYZ to W. 
Subsequent reference to either XYZ or W will have identical meaning. 

D. NO KEYBOARD BUFFER OPTION 

The following declaration, occurring anywhere in a declaration 
portion of a LEAP program, will suppress the assignment of a keyboard 
buffer at run time: 

NOKBBF; 

E. SEGMENTING A LEAP PROGRAM DIRECTIVE 

There is a feature in LEAP which allows the compilation of a 
LEAP program from text files rather than from a VITAL directive. This is 
useful if the directive is larger than two books, or if core space at com¬ 
pile time is at a premium. Only one text file is set up at a time during 
compilation. 

Note that; 

(1) The user cannot ask VITAL for a program listing, or for 
a formatted listing. 

(2) Compile-time error messages will usually be garbled. 

The use of this feature is described below: 

The user deals with his program in text file form. 

He may direct the compiler to take its input from the keyboard, 
and proceed to specify the text files which are to be read in. 

The compilation is then performed. 


The user directs the compiler's attention to the keyboard by ask¬ 
ing to compile a program consisting of one special word: 
GETFROMKB 

He specifies that a text file be read in by typing the name of 
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the text file followed by the READ-IN key. For example, if 

BLOP is a large program. 

having TAG as a label about half- 

way through, then the following sequence of events in VITAL 

will compile BLOP: 

TYPED BY 

SYSTEM 

CLEAN 

USER 

—L 5LEAP 

USER 

—C BLOP 

USER 

---DIR F|| #-TAG 

USER 

—DIR FF|| TAG- ? 

USER 

—FRESH 

SYSTEM 

FRESH 

USER 

—INS # 

USER 

GETFROMKB 

USER 

(3 

USER 

—BBIN 

USER 

F jH 

USER 

FF© 

SYSTEM 

irw 


F. 


OTHER RESERVED PROCEDURES 

1. SHADE; 

This causes the user to go into the shade. 

2. HELP; 

This causes a HELP call. 

3 . ASSIGNRECOGNIZER ( <TEXTARRAY 


The TEXTARRAY parameter indicates the name of the 
file which is to be used henceforth as the character recognizer. 
4. There is a reserved procedure which calls the character 

recognizer:* RECOGNIZE: 


When this procedure is called, a full inking buffer should be 
available, and the ASSIGNRECOGNIZER procedure should 
previously have been called. 


*For information on the TX-2 drawn character recognition facility, see 

rpforpnrp 
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The following reserved variables will be set up by the procedure: 


o-CHAR 

(INTEGER) 

character code (-1 if no recognition) 

aXMAX 

(FIXED) 

maximum X coordinate 

o-XMIN 

(FIXED) 

minimum X coordinate 

aYMAX 

(FIXED) 

maximum Y coordinate 

o-YMIN 

(FIXED) 

minimum Y coordinate 

q-XCEN 

(FIXED) 

X coordinate of center 

q-YCEN 

(FIXED) 

Y coordinate of center 


EXAMPLE: 

(reserved words are underlined) 
START 

INPUT ( FILE REC }; 

ASSIGNRECOGNIZER {REC}; 

» 

GETNEXTINT; 

IF. «CAUSE = 17. THEN 
BEGIN 

RECOGNIZE; 

IF ttCHAR = -1 THEN HELP; 


END ; 

FINISH 

5. A reserved procedure for "going up to" the character-recognition 
trainer (5TRAIN). This procedure expects the ASSIGNRECOGNIZER procedure 
to have previously been called. 

TRAIN; 

6. A procedure which takes a TEXTARRAY as a parameter, and "goes 
up to" the scope editor 

EDIT { < TEXTARRAY >}; 
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7. Two reserved procedures for allocating and emptying books 
at run time: 

(a) FREEBOOK - an INTEGER function which requires no 
parameters, and returns the number of an empty book 
(1 thru 17) as its value. 

Book 0 is automatically free for use; allocation of 
other free books must be done through FREEBOOK. 

(b) EMPTYBOOK f<INTEGER quantity >} ; 

A procedure which causes the indicated book to be 
emptied (JED 12 3). 

8. KEYBOARDEDIT { <TEXTARRAY > } ; This calls the keyboard editor, 
with the indicated TEXTARRAY as input. It works just like the 
EDIT procedure. 

9. BASICTRANSLATE [<T EXT ARRAY >} ; 

This passes the indicated text up to 5BTF. 
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G. EXTERNAL PROCEDURES 

This is a facility for defining a procedure or function that during 
run-time will exist outside the LEAP system. The experienced user will 
find this useful in linking MARK 5 and LEAP programs. The following is 
the external procedure declaration form; 

EXTERNAL <LOC>, cnormal procedure definition header>; 

where LOC should be an octal integer constant defining the absolute 

location of the procedure and a regular procedure definition follows. 

Example: EXTERNAL 411.,REAL PROCEDURE SUMSQ {REAL A1, A2}; 

defines the real function SUMSQ at location 411 Q with two real 

o 

arguments. 

The calling sequence generated by LEAP is 
JES 1q LOC 
address of argument 1 
address of argument 2 


address of argument n 
expected return point -» 


H. 


LIST OF RESERVED WORDS AND SYMBOLS 

Note that all Mark 5 op-codes are also reserved words in LEAP. 


LEAFRESERVEDWORDS 
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APPENDIX VIII 

PRIMITIVES FOR DATA-STRUCTURING 


This appendix presents a user's-eye view of the data-structuring 

facilities in LEAP. The first part of the appendix is a condensation of 
★ 

a paper on this topic, and is included here as a user's introduction to 
these facilities. The remainder of the appendix is an annotated tabula¬ 
tion of the language forms for data structuring. 

Parti. Introduction to the Associative Sub-language 

The basic data-structure entity used in LEAP is an associative 
TRIPLE of the form 

ATTRIBUTE of OBJECT is VALUE 

(e.g. , FATHER of JOE is PETE). The data structure is a store of facts 
in this form. The hash-coded nature of the data-structure makes it 
amenable to paging techniques. Programming constructs are available 
for creating, deleting, and searching for elements in the data store. 

Of particular importance is the uniformity of the single data form used. 

A LEAP user does not have to consider the details of a complex structure 
in computer memory; he can concentrate on what he wishes to represent 
and not how to represent it. The programming facilities available include 
set-theoretic operations, a powerful fact search and retrieval facility, 
and the ability to use a TRIPLE itself as a component of another TRIPLE. 

In the discussion below, reserved words in the language are 
underlined. 

A. COMPONENTS OF A LEAP DATA STRUCTURE 

Conceptually, a LEAP data structure consists of a universe of 
ITEMs* ** ,*a universe of TRIPLES, and a number of SETs. 

1. ITEMS 

An ITEM is an entity whose "internal identifier" (name) is manipu¬ 
lated by the LEAP system. An ITEM may have an associated "datum n , 
this must be specified to have one of the data types of the base language, 

*For further details, see references 4,5, and 10. 

**Not to be confused with "display items". 
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which wo will refer to as "algebraic types." Some allowed algebraic 
types arc listed below 
real * 
integer 

boolean 

fixed 

(real, integer , boolean , or fixed ) array 
For example, the declaration 

real a rray i tem LINE4 ; 

would specify an entity, LINE4 , whose datum was an array of real 
numbers, perhaps containing end-point coordinates. The LEAP language 
contains elements which are used only as algebraic quantities, only as 
names (ITEMs without algebraic type), and in both ways (ITEMS with 
algebraic type). 

The LEAP language has various statements for creating ITEMs 
and entering them into the initially empty universe of ITEMs. Declaring 
an ITEM will enter it at compile-time; the facilities for dynamically 
entering a new ITEM at execution time are presented in Section B. 

2. TRIPLES 

The TRIPLE is an ordered collection of three ITEMS and is used 

to represent a fact in the relational structure. A TRIPLE is created and 
* 

entered into the initially empty universe of TRIPLES via the MAKE state¬ 
ment. 

For example, if FATHER, JOHN, and PETE are ITEMs, then execution of 

(1) make FATHER-JOHN = PETE; (read "FATHER of JOHN is PETE") 
will add the indicated TRIPLE to the universe of TRIPLES. In (1), " •" 
and "=" are reserved symbols. 

A TRIPLE may be removed from the universe of TRIPLES via the 
ERASE statement: 

(2) erase FATHER • JOHN = PETE ; 

3. SETs 

A SET is an unordered collection of ITEMs. SETs are created by 
a SET declaration, (e . q. , set SONS;). 

*In this appendix, reserved words are underlined. 
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initially, a SET is empty (has no ITEMs). An ITEM may be added 
to a SET via the PUT statement: 

(3) out JOE in SONS; 

An ITEM may be removed from a SET via the REMOVE statement: 

(4) remove JOE from SONS; 

4. ITEMVARs (ITEM variables) 

An ITEMVAR has an ITEM as its value. An ITEM (e.g. , JOE) 
may be assigned to an ITEMVAR (e.g. , X) via the assignment statement: 

(5) JOE - X; 

X now "represents" the ITEM JOE in the sense that the following two 
statements have the same meaning: 

(6) make FATHER-JOE = PETE; 

(7) make FATHER.X s PETE; 

ITEMVARs may be declared with or without an algebraic type 
(example: real itemvar X;). The algebraic type specification is necessary 
in case it is ever desirable to retrieve the datum of the ITEM that is 
currently represented by the ITEMVAR. In such a case, the system 
assumes that the algebraic type of the ITEM represented is the same as 
the algebraic type of the ITEMVAR. 

An ITEMVAR may always be used in place of an ITEM. 

5. LOCALS 

A LOCAL also has an ITEM as its value. The LOCAL is used as 
the iteration variable in the FOREACH statement. It is used as a "local 
ITEMVAR" within the scope of this statement, hence its name. A dis¬ 
cussion of the FOREACH statement and the use of LOCALS is presented in 
Section G. 
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B. DYNAMIC CREATION AND DELETION OF ITEMS 

1 . DYNAMIC ITEM CREATION 

There ere two ways to create new ITEMS dynamically (at execu¬ 
tion time): 

(a) via the statement 

(3) new item - X; 

where "X" is an ITEMVAR. This statement causes a new ITEM to be gener¬ 
ated and assigned to the ITEMVAR and space allocated for its datum (unless 
this is an array). The algebraic type of this datum is assumed to be the 
same as the algebraic type of the ITEMVAR. If the ITEMVAR was not de¬ 
clared with an algebraic type, then no space is allocated, and the new 
ITEM is assumed to have no datum. 

(b) via the unary operator, "n This operates on an arbitrary 
algebraic expression and yields a new ITEM having the evaluated expression 
as its datum. 

2 . DYNAMIC ITEM DELETION 

The following statement removes the ITEM represented by X from 
the universe of ITEMs. 

(9) reclaim X; 

Execution of this statement causes the internal identifier of the indicated 
ITEM to be placed on a list of available internal identifiers , and the stor¬ 
age allocated for the datum of the ITEM (if any) to be returned to free 
storage. ITEMS which were declared via an ITEM declaration may not be 
deleted. It is the user's responsibility to make sure that an ITEM is not 
a member of any SET nor a part of any TRIPLE when it is deleted. 

C. THE ITEM EXPRESSION 

Thus far, we have mentioned three ways to represent an ITEM: 

(a) by a declared ITEM identifier 

(b) by an ITEMVAR which has been assigned an ITEM 

(c) by "n" applied to an algebraic expression. 
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We will classify these as "ITEM expressions." An ITEM expression mav 
always be used in place of an ITEM. 

In addition, a TRIPLE form can be an ITEM expression. This fea¬ 
ture allows the use of a TRIPLE as part of another TRIPLE. For example, the 
following statement creates a TRIPLE which expresses the idea that "the 
number of lines in a square is four": 

(10) make NUMBER • (PART • SQUARE = LINE) s n 4; 

In (10), "NUMBER," "PART,'"'SQUARE ", and "LINE" are ITEMs. The TRIPLE 
PART- SQUARE = LINE 

should exist in the universe of TRIPLES before (10) is executed. The ITEM 
"NUMBER" is meant to represent an attribute which applies to all part-whole 
relationships. 

D. SET EXPRESSIONS 

A declared SET is a SET expression. 

(j) is a SET expression (the empty SET). 

A list of ITEM expressions separated by commas, all enclosed 
in brackets and "}", is a SET expression (example: (PETE, JOE 1 ). 

Two ITEM expressions combined by one of the binary associa¬ 
tion operators (.,',*) is a SET expression. The evaluation of these SET 
expressions requires extracting information from the universe of triples, as 
follows: 

If A and B are the two specified ITEM expressions, then 

(a) A-B is the SET of all X such that 

A-B= X 

(b) A'B is the SET of all X such that 

A-X= B 

(c) A*B is the SET of all X such that 

X-A = B 

The special reserved word ANY may De used in place of an ITEM expression 
in a binary association operation, implying that any ITEM in the indicated 
position will match. 



79 


Example: 

(11) FATHER-ANY 
is the SET of all fathers. 

E. SET STATEMENTS 

The SET ASSIGNMENT statement may be used to assign an ar¬ 
bitrary SET expression to a declared SET, (e.g. , (12) SONS U BROTHERS - SONS). 

There is a special statement in LEAP for performing a task for 
each ITEM in a SET. 

For example, if SONS is a SET and X is a LOCAL, 

(13) foreach X in SONS do <STATEMENT> ; 
will cause the <STATEMENT> to be executed once for each ITEM in the 
SET. Before each iteration, the next ITEM in the SET is assigned to the 
LOCAL. Within the scope of the FOREACH statement, the LOCAL behaves 
like an ITEMVAR. A complete discussion of the FOREACH statement is 
presented in Section G. 

F. LEAP OPERATORS WHICH YIELD ALGEBRAIC RESULTS 

The binary operators " e " , "c", and and the unary operators 
istriple , "jj" , and "y" yield algebraic results. Four of these operators 
deal with SET expressions: 

(a) <ITEM expression> e < SET expression> is a Boolean expression 
which has the value TRUE if the indicated ITEM is a member of 
the indicated SET, and FALSE otherwise. 

(b) |j <SET expression> is an INTEGER expression whose value is 
the number of ITEMS in the indicated SET. 

(c) <£ET expression> c <SET expression> is a Boolean expression 
which has the value TRUE if the left operand is a subset of the 
right operand, and FALSE otherwise. 

(d) <£ET expression> = <SET expression> is a Boolean expression 
which has the value TRUE if the left operand equals the right 
operand (i.e. , the left SET is a subset of the right SET, and 
vice versa), and FALSE otherwise. 
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The unary operator "y" (GAMMA) operates on an ITEM expression 
to yield the datum of the indicated ITEM. 

For example, if PETE is an INTEGER ITEM, then the following statement 
assigns 40 as the datum of PETE: 

(14) 40 - Y PETE; 

The unary operator istriple operates on a TRIPLE form to yield a 
Boolean result. This result has the value TRUE if the indicated TRIPLE 
exists in the store. 

G. ASSOCIATIVE FOREACH STATEMENT 

There is a special statement for retrieving information from the 
universe of TRIPLES. It allows one to specify the context in which the in¬ 
formation of interest is to be found rather than a procedure for finding that 
information. 

For example, the following finds PETE's sons: 

(15) foreach FATHER-X= PETE and 

SEX.X =MALE do 
<STATEMENT> ; 

In (15), X is a LOCAL. 

There are two "context specifications" in (15): 

(a) SEX-X = MALE 

(b) FATHER. X= PETE 

These serve to determine the collection of ITEMs represented by the LOCAL 
X. An ITEM will be in this collection if and only if it satisfies all "context 
specifications." In general, there may be many "context specifications" in 
a FOREACH statement. 

At execution time, a collection of ITEMs is calculated for the LOCAL 
from the context specifications. The <STATEMENT> is then executed once 
for each ITEM in this collection. Before each iteration, the next ITEM is 
assigned to the LOCAL. Within the limits of the <STATEMENT> , the LOCAL 
is treated like an ITEMVAR. The difference between an ITEMVAR and a 
LOCAL is only that the LOCAL has special meaning within the FOREACH state- 
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mcnt and no moaning outside of this statement. An ITEM may be assigned 
to a LOCAL only by the internal action of the FOREACH statement. This 
action is said to "bind" the LOCAL. Within the FOREACH statement, the 
LOCAL is termed "bound." Outside the FOREACH statement, the LOCAL 
is undefined. 

FOREACH statements may be nested; a LOCAL which has been 
"bound" by a FOREACH statement is treated like an ITEMVAR everywhere 
within the scope of that statement. 

More than one LOCAL may be "bound" by a FOREACH statement. 

In this case, if there are N LOCALS, then a collection of N-tuples of 
ITEMS is calculated when the context specifications are processed. The 
<STATEMENT> is executed once for each N-tuple in this collection; the 
appropriate ITEMs are assigned to the appropriate LOCALS before each 
iteration. 

For example, the following statement would create all paternal grandfather 
relationships: 

foreach FATHER-X = Y 
and FATHER-Y = Z do 
make PGRFATHER-X = Z; 

Usually, the three operands of a "context specification" of the 
TRIPLE form may be any ITEM expressions. There are cases which are 
ill-defined; the compiler makes the following restrictions; 

(a) At least one operand must be a LOCAL which is being 
"bound" by this statement. 

(b) The three operands cannot all be LOCALS which are 
being "bound." 

(c) The item expression 

n<algebraic expression> 
is not allowed. 

The following constructs (specified in BNF) are other allowed 
operands for a "context specification" of the TRIPLE form: 
cother allowed operand> : ; = 

<ITEM expression> cbinary association operator> <LOCAI> | 
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<LOCAL> <binary association operator><ITEM expression> I 

<ITEM expression> <binary association operator> <other 
allowed operand> 

An example of the use of these constructs follows. In this example there 
are TRIPLES having the following forms; 

ABOVE-SQUARE s: [OBJECT] 

PART-[OBJECT] = [LINE] 

"A30VE," "SQUARE," and "PART" are ITEMS, and "OBJECT" and "LINE" 
represent the meaning of ITEMs found in the indicated context. The fol¬ 
lowing statement will display all objects above the square; 

(16) foreach ABOVE.SQUARE = PART ' Z do DISPLAY {yZ}; 

In (16), "Z" is a LOCAL with declared data-type REAL ARRAY, the DISPLAY 
procedure expects a REAL ARRAY (representing a line) as a parameter, and 
an ITEM which represents a line has a REAL ARRAY as its datum. 

The statement (16) may be expressed another way; 

(17) foreach PART♦ Y =Z and 
ABOVE • SQUARE = Y do 
DISPLAY fyZ]; 

In addition to the TRIPLE form the following construct is allowed 
as a "context specification" in the associative FOREACH statement; 
<LOCAL> in <SET expression> 

This "context specification" restricts the collection of ITEMs represented 
by the LOCAL by requiring that each such ITEM be an element in the SET 
expression. 

NOTE: Do not attempt to terminate a foreach statememt by a GOTO to a 


label outside the scope of the statement. 
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NOTES: 

(1) Items, properties, and locals may be declared only at the 
beginning of a LEAP program. 

(2) The word uselcap must follow start in every LEAP program 
in which the associative sublanguage is used. 

(3) When a procedure is declared, one can specify either an 
item or an itemvar as a parameter; the first specifies a value parameter, 
the second a reference parameter. One can pass any item expression 
as an item parameter; only an itemvar may be passed as an itemvar pa¬ 
rameter. 

(4) There is a facility for binding locals with an arbitrary Boolean 
expression in the upper part of the foreach statement. A Boolean ex¬ 
pression in this context must be preceded by andb . Example: 

foreach X in S andb y X <6 do. . . 

(5) There is a facility for declaring and using up to six "properties" 
in LEAP. A property may be assigned to or removed from an item, if the 
item has a datum. Also, one may ask if a specified item has a specified 
property. 

Examples: 

begin 

real itemvar X; 
set S; 

property A, B; 
real local Y; 


newitem - X; 
assign A _to X; 

foreach Y in S do 

if Y is A then delete A from X; 


end 





















89 


(6) When using writostructurc and rcadstructure , the user should 
bo careful that the program in which a structure is written should be 

"compatible" with the program in which the structure is read. This simply 
means that the item declarations in the two programs should correspond. 

Since there is no symbolic communication between LEAP programs, only 
the order of declaration of items, the data-type of the corresponding 
items, and the total number of declared items should match. 

(7) The merge structure statement allows the user to merge 
"compatible" LEAP data structures. 

Example: 

mergestructure 'ABC 1 ; 

when this statement is executed, the structure named 'ABC will be 
appended to the current structure in the following way: 

(a) All items in 'ABC' except those declared with no data¬ 

type will be added as new items to the store of items, and 

(b) All triples in 'ABC' will be adjusted to preserve the relations 

between these new items and then will be added to the 
store of triples. 

Note that both the current structure and the structure to be merged should 
have no items which were declared with a data type. 

(8) itemvars are treated as simple variables (e.g. real) in declar¬ 
ations (i.e. the existence of an itemvar declaration in a compound statement 
does not make the compound statement a BLOCK). 

(9) sets are treated as dynamic variables in declarations. 
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APPENDIX IX 

PRIMITIVES FOR TEXT AND FILE MANIPULATION 

This appendix describes a set of reserved procedures 
for manipulating textarrays and APEX files. The names of 
files are textarrays containing the text of the name. Procedures 
are provided for setting up files, reporting which files are set 
up, setting and reporting file status information, reading and 
writing text files, and combining textarrays. 

A flexible error handling facility has been implemented to 
allow for the variety of errors that can occur. Should an error 
occur, a jump to the label at the top of a stack will be executed 
after the reserved variables aROUTINECODE and aFILEERRORCODE 
have been set to indicate the cause of the error. Initially, the 
stack contains a jump to an internal routine which prints a 
"canned" message regarding the source of the error and then calls 
help. The user, however, may push and pop this stack of error 
labels to set his own handling of errors in various parts of his 


program. 


91 


A description of the routines and reserved variables follows: 

SETUPTEMPFILE {LENGTH, BOOK]; 

This routine sets up a non-executable, auto-expandable, ephemeral file 
of LENGTH pages in the specified book. The reserved textarray variable 
cr FILENAME is set to the name of the file (e.g. , '43E201763'). 

SETUPFILE (NAME, BOOK ); 

This routine sets up the indicated file in the specified book using the 
status information in the directory. If the file doesn’t exist, an error is signalled 

SETUPANDNAMEFILE {NAME, LENGTH, BOOK 1; 

This routine sets up a new file with the indicated name, status non¬ 
executable, auto-expandable, of LENGTH pages, in the specified book. Any 
previous uses of the name are dropped. 

WHATSIN fBOOK, MAP, NAMEl; 

This routine sets NAME to the name of the file in the specified book 
and map. If that slot is empty, NAME is set to the null textarray (i.e., ' '). 

SETSTATUSOF {NAME, WHICH]; 

The status of the file NAME is set to be the status specified by the 

integer WHICH; typically this is an "OR'ing" of the following reserved variables: 

^EXECUTABLE ^NONEXECUTABLE 

3 WRITEABLE ^READONLY 

3 UNPROTECT 3PROTECT 

3EXPANDABLE 3NONEXPANDABLE 

3LENGTH (Set length to ^LENGTH pages). 

^DATATYPE (Set datatype to a DATATYPE). 

examples: Set the status of file RR to be Read-Only and 10 pages in length. Leave 

other status information unchanged. 

10- orLENGTH; 

SETSTATUSOF {'RR', 3READONLYV PLENGTH]; 

REPORTSTATUSOF (NAME]; 

The status of the file NAME is used to set the values of the following 


reserved variables: 
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oSUMMARY 


orLENGTH 

^DATATYPE 


2 WHICH 


INTEGER 1 LEGAL DEFINED FILE 

0 LEGAL DIRECTORY NAME, 

BUT NOT DEFINED 
-1 NOT LEGAL DIRECTORY NAME 

INTEGER No. of PAGES 


INTEGER DATATYPE, VALUES HAVE THE 

FOLLOWING MEANINGS: 

0 - UNSPECIFIED (BINARY) 

1 - LINCOLN WRITER TEXT 

2 - PROCESS 

3 - ARRAY 

4 - LIBRARY FILE 

5 - MK4/5 DIRECTIVE 

6 - USER DIRECTORY 

7 - TABLET RECOGNIZER DICTIONARY 

8 - EXTENDED LINCOLNWRITER TEXT 

FILE 

9 - RELOCATABLE BINARY 

10 - TAP ASSEMBLER DICTIONARY 

11 - COMPILED REGULAR EXPRESSION 

INTEGER This, if supplied in a SETSTATUSOF 

would set status identical to this file, 
e.g. , To set file RR to identical status 
with file RA, except that RR is one 
page longer, the following code would 
be written: 

REPORTSTATUSOF {'RA'l; 
orLENGTH + 1 - orLENGTH; 
SETSTATUSOF {'RR', aWHICH}; 


^EXECUTABLE 

orWRITEABLE 

^PROTECT 

^EXPANDABLE 


BOOLEAN 

BOOLEAN 

BOOLEAN- 

BOOLEAN 


READTF f NAME, TAl; 

The contents of the textarrav' TA is set to be the contents of the text file 


NAME. 

OPENTF; 

Prepares to build a new text file. Onl one text file ma, be under construction 


(i.e., open) at one time. 
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CLOSETF {NAME} ; 

Close the current text file and name it NAME. 

PUTCHARINTF {iNTGRl; 

Puts the character INTGR into the next character location in the open text 

file. 

PUTTAINTF {TA} ; 

Appends the indicated text to the open text file. 

APPEND {A, B, C] ; 

The textarray B is appended to the textarray A and the result is put into text- 
array C. Any two or all three mav be the same textarray or the null textarray. 

PUSHFILEERRORLABEL [LABEL]; 

If an error is discovered in the file package, or a DOFILE ERROR is executed, 
control will he passed to the last LABEL pushed. The reserved variables 
o'ROUTINECODE and o'FILEERRORCODE will be set to indicate the cause of the 
error. These variables are volatile over any reserved procedure and should thus 
be saved quickly. If no error is detected in a reserved procedure, the values of 
o'ROUTINECODE and o'FILEERRORCODE are not defined. o'ROUTINECODE and 
o'FILEERRORCODE are safe over the following reserved procedures: 
PUSHFILEERRORLABEL, POPFILEERRORLABEL. 

POPFILEERRORLABEL; 

Cancels the last PUSHFILEERRORLABEL executed. If you try to POP too 
far, the top of the stack will contain its initial value, namely a label of routine which 
types the cause of the error and then calls help. 

DOFILEERROR [ROUTINECODE, FILEERRORCODE 1 ; 

Sets the reserved variables o'ROUTINECODE and o'FILEERRORCODE to 
the specified values and then jumps to the last label pushed onto the file error label 
stack. 
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TYPEERROR; 


This routine takes the values in aROUTINECODE and aFILEERRORCODE 
and uses them to print a canned message as to the cause of the error. 


RESERVED VARIABLE DATA TYPE COMMENTS 


oTFCOUNT 

INTEGER 

cifROUTINECODE 

INTEGER 

aFILEERRORCODE 

INTEGER 

^FILENAME 

TEXTARRAY 

^DATATYPE 

INTEGER 

^LENGTH 

INTEGER 

^SUMMARY 

INTEGER 

aWHICH 

INTEGER 

^EXECUTABLE 

BOOLEAN 

^EXPANDABLE 

BOOLEAN 

aWRITEABLE 

BOOLEAN 

^PROTECT 

BOOLEAN 

aMAP 

INTEGER 

^CONSOLE 

INTEGER 


contains number of characters 
inserted into currently open 
text file. Contains -1 if no 
text file currently open. 

See discussion at PUSHFILE- 
ERRORLABEL and listing 
of errors. 

Set to the name of the file set 
up by the last SETUPTEMPFILE. 

\ 


j See REPORTSTATUSOF 


Set at initialization to the 
number of the map the user 
is running on. 

Set at initialization to the 
number of the console on which 
the user is running. 
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